Index: openacs-4/packages/acs-subsite/tcl/subsite-callback-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/subsite-callback-procs.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/acs-subsite/tcl/subsite-callback-procs.tcl	29 Jul 2006 00:28:31 -0000	1.4
+++ openacs-4/packages/acs-subsite/tcl/subsite-callback-procs.tcl	10 Jan 2007 21:22:06 -0000	1.5
@@ -34,7 +34,7 @@
     not specified
 } {
 
-    if { [empty_string_p $object_type] } {
+    if { $object_type eq "" } {
 	db_1row select_object_type {
 	    select object_type
 	      from acs_objects