diff --git a/guile-stash.log b/guile-stash.log
new file mode 100644
index 0000000..1f5a4b1
--- /dev/null
+++ b/guile-stash.log
@@ -0,0 +1 @@
+Symlink created: /home/glenn/stash/test -> /home/glenn/.config/alacritty/test
diff --git a/guile-stash.scm b/guile-stash.scm
index d1a8e61..9d43386 100644
--- a/guile-stash.scm
+++ b/guile-stash.scm
@@ -142,9 +142,15 @@
     (eqv? (stat:type stat) 'symlink)))
 
 (define (log-action message)
-  (with-output-to-file "guile-stash.log"
-    (lambda () (display message) (newline))
-    #:append #t))
+  (let ((log-port (open-file "guile-stash.log" "a")))  ;; Open file in append mode
+    (display message log-port)
+    (newline log-port)
+    (close-port log-port)))  ;; Close the port after writing
+
+;; (define (log-action message)
+;;   (with-output-to-file "guile-stash.log"
+;;     (lambda () (display message) (newline))
+;;     #:append #t))
 
 ;; Helper function to build target symlink path
 (define (build-target-path source target)