diff --git a/extra/lisp/parser/parser.factor b/extra/lisp/parser/parser.factor
index 72344fd0dc..55672af13d 100644
--- a/extra/lisp/parser/parser.factor
+++ b/extra/lisp/parser/parser.factor
@@ -36,4 +36,6 @@ atom         = number
               | string
 s-expression = LPAREN (list-item)* RPAREN                => [[ second seq>cons ]]
 list-item    = _ ( atom | s-expression ) _               => [[ second ]]
-;EBNF
+quoted       = squote list-item                          => [[ second nil cons "quote" <lisp-symbol> swap cons ]]
+expr         = list-item | quoted
+;EBNF
\ No newline at end of file