Index: server.scm
==================================================================
--- server.scm
+++ server.scm
@@ -137,20 +137,21 @@
 			     (loop))))))))
 
     ;; The heavy lifting
     ;;
     (let loop ()
+      (print "GOT HERE EH?")
       (let* ((rawmsg (receive-message* pull-socket))
 	     (params (db:string->obj rawmsg)) ;; (with-input-from-string rawmsg (lambda ()(deserialize))))
 	     (res    #f))
 	(debug:print-info 12 "server=> received params=" params)
 	(set! res (cdb:cached-access params))
 	(debug:print-info 12 "server=> processed res=" res)
 
 	;; need address here
 	;;
-	(send-message zmq-socket (db:obj->string res))
+	;; (send-message zmq-socket (db:obj->string res))
 	(if (not *time-to-exit*)
 	    (loop)
 	    (begin
 	      (open-run-close tasks:server-deregister-self tasks:open-db #f)
 	      (db:write-cached-data)
@@ -360,11 +361,12 @@
 					   (mutex-lock! *heartbeat-mutex*)
 					   (set! server-info *server-info* )
 					   (mutex-unlock! *heartbeat-mutex*)
 					   (if (not server-info)(loop)))
 					 (debug:print 1 "Server alive, starting self-ping")
-					 (server:self-ping server-info)))
+					 ;; (server:self-ping server-info)
+					 ))
 				     "Self ping"))
 		   (th2 (make-thread (lambda ()
 				       (server:run (args:get-arg "-server"))) "Server run"))
 		   (th3 (make-thread (lambda ()
 				       (server:keep-running)) "Keep running")))