Index: openacs-4/packages/acs-tcl/tcl/site-nodes-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/site-nodes-procs.tcl,v
diff -u -r1.51 -r1.52
--- openacs-4/packages/acs-tcl/tcl/site-nodes-procs.tcl	20 Feb 2004 16:11:50 -0000	1.51
+++ openacs-4/packages/acs-tcl/tcl/site-nodes-procs.tcl	26 Feb 2004 15:28:54 -0000	1.52
@@ -102,7 +102,9 @@
         }
 
         # Default node_name to package_key
-        set node_name [ad_decode $node_name "" $package_key $node_name]
+        if { [empty_string_p $node_name] } {
+            set node_name $package_key
+        }
 
         # Create the node if it doesn't exists
         set parent_url [get_url -notrailing -node_id $parent_node_id]