diff --git a/Test/C04funcdef.ztst b/Test/C04funcdef.ztst
new file mode 100644
index 000000000..07a20349d
--- /dev/null
+++ b/Test/C04funcdef.ztst
@@ -0,0 +1,13 @@
+%test
+
+  function f$$ () {
+    print regress expansion of function names
+  }
+  f$$
+0:Regression test: `function f$$ () { ... }'
+>regress expansion of function names
+
+  function foo () print bar
+  foo
+0:Function definition without braces
+>bar