diff --git a/basis/regexp/parser/parser.factor b/basis/regexp/parser/parser.factor
index b7716d8580..b5022c602e 100644
--- a/basis/regexp/parser/parser.factor
+++ b/basis/regexp/parser/parser.factor
@@ -294,6 +294,7 @@ ERROR: unrecognized-escape char ;
     read1
     {
         { CHAR: \ [ CHAR: \ <constant> ] }
+        { CHAR: / [ CHAR: / <constant> ] }
         { CHAR: ^ [ CHAR: ^ <constant> ] }
         { CHAR: $ [ CHAR: $ <constant> ] }
         { CHAR: - [ CHAR: - <constant> ] }
diff --git a/basis/regexp/regexp-tests.factor b/basis/regexp/regexp-tests.factor
index 3e7d83a12b..15e78629b6 100644
--- a/basis/regexp/regexp-tests.factor
+++ b/basis/regexp/regexp-tests.factor
@@ -55,6 +55,8 @@ IN: regexp-tests
 [ t ] [ " " "[\\W]" <regexp> matches? ] unit-test
 [ f ] [ "a" "[\\W]" <regexp> matches? ] unit-test
 
+[ t ] [ "/" "\\/" <regexp> matches? ] unit-test
+
 [ t ] [ "" "a|b*|c+|d?" <regexp> matches? ] unit-test
 [ t ] [ "a" "a|b*|c+|d?" <regexp> matches? ] unit-test
 [ t ] [ "c" "a|b*|c+|d?" <regexp> matches? ] unit-test