Index: openacs-4/packages/acs-admin/www/apm/version-callback-add-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/apm/version-callback-add-edit.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/acs-admin/www/apm/version-callback-add-edit.tcl	17 Sep 2003 11:20:30 -0000	1.6
+++ openacs-4/packages/acs-admin/www/apm/version-callback-add-edit.tcl	10 Jan 2007 21:21:59 -0000	1.7
@@ -15,7 +15,7 @@
 set return_url "version-callbacks?[export_vars { version_id }]"
 
 # Set default values for type and proc name
-if { [empty_string_p $type] } {
+if { $type eq "" } {
     # We are in add mode
     set edit_mode_p 0
     set unused_types [apm_unused_callback_types -version_id $version_id]