Index: openacs-4/packages/lars-blogger/tcl/test/blogger-api-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/tcl/test/blogger-api-procs.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/lars-blogger/tcl/test/blogger-api-procs.tcl	23 Feb 2005 15:28:57 -0000	1.3
+++ openacs-4/packages/lars-blogger/tcl/test/blogger-api-procs.tcl	30 Oct 2013 17:37:09 -0000	1.4
@@ -34,7 +34,7 @@
                         -last_name $ln \
                         -password $password]
     
-    if { [string equal $user(creation_status) ok] } {
+    if {$user(creation_status) eq "ok"} {
         set user_id $user(user_id)
         permission::grant -party_id $user_id \
             -object_id $blog_id \