diff --git a/scheme/httpd/scheme-program-server.scm b/scheme/httpd/scheme-program-server.scm
index 08152e1..89b38c8 100644
--- a/scheme/httpd/scheme-program-server.scm
+++ b/scheme/httpd/scheme-program-server.scm
@@ -11,11 +11,8 @@
 	       (doit (lambda ()
 		       ((runprogram prog) arglist))))
 
-	  (and (http-log "----------------------------------------~%")
-	       (http-log "  Programmname : ~s~%" prog)
-	       (http-log "  search       : ~s~%" search)
-	       (http-log "  Argumente    : ~s~%" arglist)
-	       (http-log "----------------------------------------~%")
+	  (and (http-syslog (syslog-level debug) 
+			    "scheme-program-handler:~%  Programmname : ~s~%  search       : ~s~%  Argumente    : ~s~%" prog search arglist)
 
 	       (let ((request-method (request:method req)))
 		 (if (or (string=? request-method "GET")
@@ -28,7 +25,8 @@
 (define (runprogram progstring)
     (let* ( (progsymbol (read (make-string-input-port progstring)))
 	    (progsymbol1 (string->symbol progstring)))
-      (and (http-log "[]run-program ~s ~s ~s~%" progstring progsymbol progsymbol1)
+      (and (http-syslog (syslog-level debug)
+			"[]run-program ~s ~s ~s~%" progstring progsymbol progsymbol1)
 	   (eval progsymbol (interaction-environment)))))
 
 (define (split-and-decode-search-spec s)