X-Git-Url: http://git.indexdata.com/?p=yaz-moved-to-github.git;a=blobdiff_plain;f=z39.50%2Fz.tcl;fp=z39.50%2Fz.tcl;h=c0855a6f446e333b6ffebf2c2799fc1d7b5f513b;hp=47bb1c39b2a8dbf17f0f026436c4e1eae7d70e4e;hb=ec1f815d5348cd21e393f76bc212c910c34bbc45;hpb=05d1794c4ac57eabe6f6da766156f6986d5c987c

diff --git a/z39.50/z.tcl b/z39.50/z.tcl
index 47bb1c3..c0855a6 100644
--- a/z39.50/z.tcl
+++ b/z39.50/z.tcl
@@ -1,5 +1,5 @@
 # YC Sample Config File for Z39.50
-# $Id: z.tcl,v 1.10 2003-02-17 21:23:31 adam Exp $
+# $Id: z.tcl,v 1.11 2003-05-20 19:55:30 adam Exp $
 # ----------------------------------------------------------
 # Prefix Specifications
 #  
@@ -208,8 +208,8 @@ set filename($m) z-sutrs
 set body($m,c) {
 int z_SUTRS (ODR o, Odr_oct **p, int opt, const char *name)
 {
-    return odr_implicit(o, odr_octetstring, p, ODR_UNIVERSAL,
-        ODR_GENERALSTRING, opt);
+    return odr_implicit_tag(o, odr_octetstring, p, ODR_UNIVERSAL,
+        ODR_GENERALSTRING, opt, name);
 }
 }