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 -N -r1.29 -r1.30
--- openacs-4/packages/acs-subsite/tcl/package-procs.tcl	20 Nov 2017 15:19:27 -0000	1.29
+++ openacs-4/packages/acs-subsite/tcl/package-procs.tcl	18 Dec 2017 14:59:52 -0000	1.30
@@ -710,14 +710,16 @@
         append variable_prefix "."
     }
 
+    if {[catch {
+        acs_object_type::get -object_type $object_type -array acs_type
+        set package_name $acs_type(package_name)
+    } errmsg]} {
+        error "Object type \"$object_type\" does not exist"
+    }    
+    
     # Select out the package name if it wasn't passed in
-    if { $package_name eq "" } {
-        if {[catch {
-            acs_object_type::get -object_type $object_type -array acs_type
-            set package_name $acs_type(package_name)
-        } errmsg]} {
-            error "Object type \"$object_type\" does not exist"
-        }
+    if { $package_name eq "" } {        
+        set package_name $acs_type(package_name)
     }
 
     if { [ad_conn isconnected] } {
@@ -788,8 +790,7 @@
 
     if { $form_id ne ""} {
 
-        #DRB: This needs to be cached!
-        set __id_column [db_string get_id_column {}]
+        set __id_column $acs_type(id_column)
         if { [info exists real_params([string toupper $__id_column])]
              && ![info exists param_array([string toupper $__id_column])]
          } {