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 -r1.94.6.7 -r1.94.6.8 --- openacs-4/packages/xotcl-core/tcl/generic-procs.tcl 30 Sep 2014 20:14:00 -0000 1.94.6.7 +++ openacs-4/packages/xotcl-core/tcl/generic-procs.tcl 30 Sep 2014 20:46:36 -0000 1.94.6.8 @@ -300,7 +300,10 @@
       # Must be an existing acs_object class on the system.
       set class "::dev::Location"
-
+      
+      # As we are talking about acs_objects, our 'delete'
+      # page could of course be the same for every object
+      # in the system.
       ::Generic::List create list1 \
 	  -class $class \
 	  -package_id $package_id \
@@ -578,7 +581,7 @@
       html_class
     } {
       set val [my set $prop]
-      set prop [string range $prop 4 end]
+      set prop [string range $prop 5 end]
       if {$val ne ""} {
 	lappend cmd -${prop} $val
       }