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.46 -r1.46.2.1
--- openacs-4/packages/acs-tcl/tcl/site-nodes-procs.tcl	10 Nov 2003 16:10:16 -0000	1.46
+++ openacs-4/packages/acs-tcl/tcl/site-nodes-procs.tcl	5 Feb 2004 17:20:50 -0000	1.46.2.1
@@ -109,7 +109,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]