diff --git a/demos/morse/morse-tests.factor b/demos/morse/morse-tests.factor
index 4ce2c4dc0e..b66b49189c 100644
--- a/demos/morse/morse-tests.factor
+++ b/demos/morse/morse-tests.factor
@@ -15,30 +15,30 @@ in: morse.tests
 { "abc" } [ ".- -... -.-." morse> ] unit-test
 
 { "morse code" } [
-    [MORSE
+    MORSE[[
         -- --- .-. ... . /
         -.-. --- -.. .
-    MORSE] >morse morse> ] unit-test
+    ]] >morse morse> ] unit-test
 
 { "morse code 123" } [
-    [MORSE
+    MORSE[[
         __ ___ ._. ... . /
         _._. ___ _.. . /
         .____ ..___ ...__
-    MORSE] ] unit-test
+    ]] ] unit-test
 
-{ [MORSE
+{ MORSE[[
       -- --- .-. ... . /
       -.-. --- -.. .
-  MORSE] } [
+  ]] } [
     "morse code" >morse morse>
 ] unit-test
 
 { "factor rocks!" } [
-    [MORSE
+    MORSE[[
       ..-. .- -.-. - --- .-. /
       .-. --- -.-. -.- ... -.-.--
-    MORSE] ] unit-test
+    ]] ] unit-test
 ! [ ] [ "sos" 0.075 play-as-morse* ] unit-test
 ! [ ] [ "Factor rocks!" play-as-morse ] unit-test
 ! [ ] [ "\n" play-as-morse ] unit-test
diff --git a/demos/morse/morse.factor b/demos/morse/morse.factor
index 3c5e36c81d..be55662003 100755
--- a/demos/morse/morse.factor
+++ b/demos/morse/morse.factor
@@ -112,7 +112,7 @@ PRIVATE>
 : morse> ( morse -- plain )
     replace-underscores morse>sentence ;
 
-SYNTAX: [MORSE "MORSE]" parse-multiline-string morse> suffix! ;
+SYNTAX: MORSE[[ "]]" parse-multiline-string morse> suffix! ;
 
 <PRIVATE