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.25.4.2 -r1.25.4.3
--- openacs-4/packages/acs-subsite/tcl/package-procs.tcl	5 Oct 2013 13:02:12 -0000	1.25.4.2
+++ openacs-4/packages/acs-subsite/tcl/package-procs.tcl	10 Oct 2013 21:00:45 -0000	1.25.4.3
@@ -312,7 +312,7 @@
     lappend plsql [list "package" "create_package" [package_generate_spec $object_type]]
     lappend plsql [list "package body" "create_package_body" [package_generate_body $object_type]]
 
-    if { $debug_p eq "t" } {
+    if { $debug_p == "t" } {
 	foreach pair $plsql {
 #	    append text "[plsql_utility::parse_sql [lindex $pair 1]]\n\n"
 	    append text [lindex $pair 2]
@@ -475,7 +475,7 @@
     @param start_with The highest parent object type for which to include attributes
     @param object_type The object for which to create a package spec
 } {
-    if {$refresh_p eq "t"} {
+    if {$refresh_p == "t"} {
 	package_object_view_reset $object_type
     }
     return [util_memoize "package_object_view_helper -start_with $start_with $object_type"]