Index: openacs-4/packages/xotcl-core/tcl/generic-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/generic-procs.tcl,v
diff -u -N -r1.112 -r1.112.2.1
--- openacs-4/packages/xotcl-core/tcl/generic-procs.tcl	18 Sep 2018 23:38:34 -0000	1.112
+++ openacs-4/packages/xotcl-core/tcl/generic-procs.tcl	14 May 2019 20:04:22 -0000	1.112.2.1
@@ -50,9 +50,11 @@
     set level [template::adp_level]
     :forward var uplevel #$level set
 
-    if {${:package_id} eq ""} {set :package_id [${:data} package_id]}
+    if {${:package_id} eq ""} {
+      set :package_id [${:data} package_id]
+    }
     if {${:folder_id} < 0} {
-      set :folder_id [expr {[${:data} exists parent_id] ? [${:data} parent_id] : [${:package_id} folder_id]}]
+      set :folder_id [expr {[${:data} exists parent_id] ? [${:data} parent_id] : [::${:package_id} folder_id]}]
     }
 
     set class [${:data} info class]