Index: openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl,v
diff -u -r1.61 -r1.62
--- openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	15 Dec 2003 10:24:07 -0000	1.61
+++ openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	17 Dec 2003 19:21:22 -0000	1.62
@@ -618,6 +618,7 @@
     -entire_form:boolean
     -no_empty:boolean
     {-base}
+    {-anchor}
     {-exclude {}}
     {-override {}}
     {vars {}}
@@ -991,6 +992,11 @@
         }
     }
     
+    # Append anchor
+    if { [exists_and_not_null anchor] } {
+        append export_string "\#$anchor"
+    }
+    
     return $export_string
 }