remove debug output

scheme/httpd/surflets/web-server/root/surflets/admin-profiling.scm

@@ -112,14 +112,14 @@
 	  (return-to-main-page req))
 	 ((returned-via? reset-return-address bindings)
 	  (reset-and-return-to-main-page req))
-	 ((input-field-binding gnuplot-change-button bindings)
+	 ((returned-via? gnuplot-change-button bindings)
 	  (let ((new-gnuplot-location (input-field-value gnuplot-input-field bindings)))
 	    (if (executable? new-gnuplot-location)
 		(begin
 		  (set! gnuplot new-gnuplot-location)
 		  (profile req (format #f "Gnuplot is now searched at ~a." gnuplot)))
 		(profile req "Please enter a file name of an existing executable."))))
-	 ((input-field-binding convert-change-button bindings)
+	 ((returned-via? convert-change-button bindings)
 	  (let ((new-use-convert? (input-field-value convert-check-box bindings))
 		(new-convert-location (input-field-value convert-input-field bindings)))
 	    (if (equal? use-convert? new-use-convert?)
@@ -189,14 +189,6 @@ plot '~a' title 'SUrflet Profiling ~a' with lines"
 				   (zero? gnuplot-status)
 				   (run (,convert ,gnuplot-picture-name
 						  ,convert-picture-name)))))
-	      (format #t "use-convert? ~a gnuplot-status ~a convert-status ~a
-gnuplot-picture-name ~a
-convert-picture-name ~a~%"
-		      use-convert?
-		      gnuplot-status
-		      convert-status
-		      gnuplot-picture-name
-		      convert-picture-name)
 	  (delete-file gnuplot-data-file-name)
 	  (add-file-name-to-delete! gnuplot-picture-name)
 	  (if (and use-convert?