--- bs1	2012-10-03 15:34:22.000000000 +0200
+++ wiki.scm	2012-10-03 15:35:27.000000000 +0200
@@ -30,12 +30,9 @@
   
 (define (markdown-transform path)
   (let* ((new-path (pathname-replace-extension path html-extension))
-         (out-fd   (begin (delete-file* new-path) ; just to be sure
-                          (open-output-file new-path)))
          (in-fd    (open-input-file path)))
                      
-  ; TODO
-  (with-output-to-port out-fd (lambda () (markdown->html in-fd)))))
+  (with-output-to-file new-path (lambda () (markdown->html in-fd)))))
 
 (define (make-index) '()) ;TODO