Index: openacs-4/packages/xowiki/tcl/xowiki-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-procs.tcl,v
diff -u -r1.485.2.64 -r1.485.2.65
--- openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	22 Apr 2017 17:34:04 -0000	1.485.2.64
+++ openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	27 Apr 2017 18:18:24 -0000	1.485.2.65
@@ -2924,10 +2924,13 @@
   Page instproc translate {-from -to text} {
     set langpair $from|$to
     set ie UTF8
-    set r [xo::HttpRequest new -url http://translate.google.com/#$from/$to/$text]
+    set url http://translate.google.com/#$from/$to/$text
+    set request [util::http::get -url $url]
+    set status [dict get $request status]
+    set data [expr {[dict exists $request page] ? [dict get $request page] : ""}]
+
     #my msg status=[$r set status]
-    if {[$r set status] eq "finished"} {
-      set data [$r set data]
+    if {$status == 200} {
       #my msg data=$data
       dom parse -simple -html $data doc
       $doc documentElement root
@@ -2936,7 +2939,7 @@
       if {$n ne ""} {return [$n asText]}
     }
     util_user_message -message "Could not translate text, \
-        status=[$r set status]"
+        status=$status"
     return "untranslated: $text"
   }