diff --git a/wip-duuqnd/user-side-compiler/tokenizer.lisp b/wip-duuqnd/user-side-compiler/tokenizer.lisp
index fae6cc1..b48aa06 100644
--- a/wip-duuqnd/user-side-compiler/tokenizer.lisp
+++ b/wip-duuqnd/user-side-compiler/tokenizer.lisp
@@ -146,7 +146,7 @@ reading immediately. Should be a subset of *SPECIAL-TOKEN-CHARS*.")
         (in-comment-p nil)
         (line 1)
         (column 0)
-        (token-source (cons source 0)))
+        (token-source (cons source (cons 1 0))))
     (labels
         ((next-token ()
            (push (text-to-token (copy-seq token-text-buffer) token-source) tokens)