Index: openacs-4/packages/acs-subsite/tcl/package-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/package-procs.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/acs-subsite/tcl/package-procs.tcl	21 Nov 2001 05:24:44 -0000	1.7
+++ openacs-4/packages/acs-subsite/tcl/package-procs.tcl	8 Mar 2002 21:03:40 -0000	1.8
@@ -826,6 +826,10 @@
 	}
     }
 
+    if {!$creation_user} {
+        set creation_user ""
+    }
+
     lappend var_list [list creation_user $creation_user]
     lappend var_list [list creation_ip $creation_ip]