diff --git a/lib/doc/MkExxTable.hs b/lib/doc/MkExxTable.hs
index 1a57cbdca..b19fea455 100644
--- a/lib/doc/MkExxTable.hs
+++ b/lib/doc/MkExxTable.hs
@@ -48,7 +48,7 @@ getApiExxTrees = M.fromList . pairs . map cleanUp
      _ -> []
 
 -- remove leading prompts and spaces
-cleanUp = dropWhile (\c -> not (isAlpha c || elem c "*'"))
+cleanUp = dropWhile (flip elem " >")
 
 -- only accept lines starting with prompts (to eliminate multi-line gf uncomputed output)
 validOutput = (==">") . take 1