@@ -47,10 +47,11 @@
 	 (ipaddrstr      (if (string=? "-" hostn)
 			     (string-intersperse (map number->string (u8vector->list (hostname->ip hostname))) ".")
 			     #f))
 	 (host:port      (conc (if ipaddrstr ipaddrstr hostname) ":" (rpc:default-server-port))))
     (db:set-var db "SERVER" host:port)
+    (set! *cache-on* #t)
 
     ;; can use this to run most anything at the remote
     (rpc:publish-procedure! 
      'remote:run 
      (lambda (procstr . params)