diff --git a/tools/clog-builder-projects.lisp b/tools/clog-builder-projects.lisp
index bb73467..42f4f2b 100644
--- a/tools/clog-builder-projects.lisp
+++ b/tools/clog-builder-projects.lisp
@@ -21,7 +21,7 @@
                                      (setf (project-win app) nil)))))))
 
 (defun projects-load (fname)
-  (funcall (read-from-string "ql:quickload") fname))
+  (funcall (read-from-string "asdf:load-system") fname))
 
 (defun projects-list-local-systems ()
   (funcall (read-from-string "ql:list-local-systems")))
diff --git a/tools/clog-builder.lisp b/tools/clog-builder.lisp
index 686d8ab..5fe1c63 100644
--- a/tools/clog-builder.lisp
+++ b/tools/clog-builder.lisp
@@ -587,18 +587,19 @@ instead of the project window will be displayed."
     (format t "~%If browser does not start go to http://127.0.0.1:~A/builder~%~%" port)
     (open-browser :url (format nil "http://127.0.0.1:~A/builder" port))))
     
-;;(in-package #:quicklisp-client)
-;;
-;; patch, if-exists of :rename-and-delete does not work well on windows
-;; (defun make-system-index (pathname)
-;;   "Create a system index file for all system files under
-;; PATHNAME. Current format is one native namestring per line."
-;;   (setf pathname (truename pathname))
-;;   (with-open-file (stream (system-index-file pathname)
-;;                           :direction :output
-;;                           :if-exists :overwrite)
-;;     (dolist (system-file (local-project-system-files pathname))
-;;       (let ((system-path (enough-namestring system-file pathname)))
-;;         (write-line (native-namestring system-path) stream)))
-;;     (probe-file stream)))
+(in-package #:quicklisp-client)
+
+;; patch, if-exists of :rename-and-delete does not work well on windows
+#+windows
+(defun make-system-index (pathname)
+  "Create a system index file for all system files under
+PATHNAME. Current format is one native namestring per line."
+  (setf pathname (truename pathname))
+  (with-open-file (stream (system-index-file pathname)
+                          :direction :output
+                          :if-exists :overwrite)
+    (dolist (system-file (local-project-system-files pathname))
+      (let ((system-path (enough-namestring system-file pathname)))
+        (write-line (native-namestring system-path) stream)))
+    (probe-file stream)))