Author: William Joye <wjoye@cfa.harvard.edu>
Description: Disable the debug flag
 This was taken from the changes in the saods9 package.
--- a/xmlrpc.tcl
+++ b/xmlrpc.tcl
@@ -76,7 +76,7 @@
 
 	variable	response	"";		# response to return
 	variable	acceptfd	"";		# socket to listen on
-	variable	DEBUG		1;		# debug
+	variable	DEBUG		0;		# debug
 }
 
 # Given a port, create a new socket