Index: openacs-4/packages/lars-blogger/tcl/technorati-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/tcl/technorati-procs.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/lars-blogger/tcl/technorati-procs.tcl	15 Jun 2012 19:12:21 -0000	1.2
+++ openacs-4/packages/lars-blogger/tcl/technorati-procs.tcl	30 Oct 2013 17:37:09 -0000	1.3
@@ -162,18 +162,18 @@
     set type "weblog"
     set version "0.9"
     
-    if { [string equal $key ""] } {
+    if {$key eq ""} {
         error "No Technorati API key available"
     }
     
-    if { [string equal $url ""] } {
+    if {$url eq ""} {
         set url "[ad_url][lars_blog_public_package_url]"
     }
     
     set api_url "http://api.technorati.com/cosmos?[export_vars -url [list key url type version]]"
     
     array set f [ad_httpget -url $api_url -timeout 60]
-    if { [string equal $f(status) "200"] } {
+    if {$f(status) == 200} {
         return $f(page)
     } else {
         error "ad_httpget error"