diff --git a/Test/09funcdef.ztst b/Test/09funcdef.ztst
new file mode 100644
index 000000000..9a244db65
--- /dev/null
+++ b/Test/09funcdef.ztst
@@ -0,0 +1,8 @@
+%test
+
+  function f$$ () {
+    print regress expansion of function names
+  }
+  f$$
+0:Regression test: `function f$$ () { ... }'
+>regress expansion of function names