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.1 -r1.2
--- openacs-4/packages/lars-blogger/tcl/technorati-procs.tcl	14 Dec 2003 16:26:26 -0000	1.1
+++ openacs-4/packages/lars-blogger/tcl/technorati-procs.tcl	15 Jun 2012 19:12:21 -0000	1.2
@@ -98,11 +98,12 @@
     }
     
     if { [catch {
-        set doc [dom parse $xml]
-        
-        set root [$doc documentElement]
+
+        dom parse $xml doc
+        $doc documentElement root
+
         set root_name [$root nodeName]
-        if { ![string equal $root_name "tapi"] } {
+        if { $root_name ne "tapi" } {
             error "Root element is not tapi"
         }
         
@@ -177,4 +178,4 @@
     } else {
         error "ad_httpget error"
     }
-}
\ No newline at end of file
+}