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 -r1.26.2.1 -r1.26.2.2
--- openacs-4/packages/acs-subsite/tcl/package-procs.tcl	22 Aug 2015 10:09:06 -0000	1.26.2.1
+++ openacs-4/packages/acs-subsite/tcl/package-procs.tcl	27 Oct 2015 22:56:30 -0000	1.26.2.2
@@ -19,12 +19,12 @@
     @creation-date 12/30/2000
 } {
     return [db_string object_type_dynamic_p {
-        select case when exists (select 1
-                                 from acs_object_types t
-                                 where t.dynamic_p = 't'
-                                 and t.object_type = :object_type)
-        then 1 else 0 end
-        from dual
+        	select case when exists (select 1 
+                                   from acs_object_types t
+                                  where t.dynamic_p = 't'
+                                    and t.object_type = :object_type)
+	            then 1 else 0 end
+	  from dual
     }]
 }
 
@@ -326,15 +326,7 @@
         db_exec_plsql $stmt_name $code
 
         # Let's check to make sure the package is valid
-        if { ![db_string package_valid_p {
-            select case when exists (select 1
-                                     from user_objects
-                                     where status = 'INVALID'
-                                     and object_name = upper(:package_name)
-                                     and object_type = upper(:type))
-            then 0 else 1 end
-            from dual
-        }] } {
+        if { ![db_string package_valid_p {}] } {
             error "$object_type \"$package_name\" is not valid after compiling:\n\n$code\n\n"
         }
     }