--- a/RegressionTests__RxTests.st	Tue Jun 11 10:34:45 2019 +0200
+++ b/RegressionTests__RxTests.st	Sat Jun 15 09:45:43 2019 +0200
@@ -1517,6 +1517,19 @@
 	self should: [ (matcher subexpression: 3) = 'b' ].
 !
 
+test138
+        | matcher |
+
+        matcher := 'aa*' asRegex.
+        self assert:(matcher matches:'a').
+        self assert:(matcher matches:'aa').
+        self assert:(matcher matches:'aaa').
+        self deny:(matcher matches:'ab').
+        self deny:(matcher matches:'b').
+
+    "Created: / 15-06-2019 / 09:44:56 / Claus Gittinger"
+!
+
 test199
     |matcher|