@@ -17,29 +17,30 @@
 ;;     along with Megatest.  If not, see <http://www.gnu.org/licenses/>.
 ;;
 ;;======================================================================
 
 (declare (unit tree))
-(declare (uses mtargs))
-(declare (uses debugprint))
-(declare (uses launch))
-(declare (uses gutils))
-(declare (uses server))
-(declare (uses dcommon))
-
-
-(use format)
-(require-library iup)
-(import (prefix iup iup:))
-(use canvas-draw)
-
-(use sqlite3 srfi-1 posix regex regex-case srfi-69)
-(import (prefix sqlite3 sqlite3:))
-
-(import (prefix mtargs args:)
-	debugprint)
-
-;; (include "megatest-version.scm")
-;; (include "common_records.scm")
-;; (include "db_records.scm")
-;; (include "key_records.scm")
-
+;; (declare (uses mtargs))
+;; (declare (uses debugprint))
+;; (declare (uses launch))
+;; (declare (uses gutils))
+;; (declare (uses server))
+;; (declare (uses dcommon))
+;; 
+;; 
+;; (use format)
+;; (require-library iup)
+;; (import (prefix iup iup:))
+;; (use canvas-draw)
+;; 
+;; (use sqlite3 srfi-1 posix regex regex-case srfi-69)
+;; (import (prefix sqlite3 sqlite3:))
+;; 
+;; (import (prefix mtargs args:)
+;; 	debugprint)
+;; 
+;; ;; (include "megatest-version.scm")
+;; ;; (include "common_records.scm")
+;; ;; (include "db_records.scm")
+;; ;; (include "key_records.scm")
+;; 
+;;