diff --git a/src/eval.c b/src/eval.c
index 5c26248..8474956 100644
--- a/src/eval.c
+++ b/src/eval.c
@@ -875,7 +875,7 @@
 
 #ifdef EBCDIC
     /*
-     * Sort the function table, to enable binary sort.
+     * Sort the function table, to enable binary search.
      */
     sortFunctions();
 #endif
@@ -21737,6 +21737,9 @@
 	    ++hi;
 	fp = HI2UF(hi);
 
+	if (fp->uf_flags & FC_DICT)
+	    return NULL; /* don't show dict functions */
+
 	if (STRLEN(fp->uf_name) + 4 >= IOSIZE)
 	    return fp->uf_name;	/* prevents overflow */