Index: openacs-4/packages/acs-tcl/tcl/user-extensions-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/user-extensions-procs.tcl,v
diff -u -N -r1.4 -r1.5
--- openacs-4/packages/acs-tcl/tcl/user-extensions-procs.tcl	17 May 2003 10:04:18 -0000	1.4
+++ openacs-4/packages/acs-tcl/tcl/user-extensions-procs.tcl	10 Jan 2007 21:22:12 -0000	1.5
@@ -24,7 +24,7 @@
 	notified of changes in user information.
 
     } {
-        if {[empty_string_p $impl]} {
+        if {$impl eq ""} {
             set extensions [list_extensions]
         } else {
             set extensions [list $impl]