--- a/src/explify.sml	Tue Aug 12 14:55:05 2008 -0400
+++ b/src/explify.sml	Thu Aug 14 13:20:29 2008 -0400
@@ -123,6 +123,7 @@
       | L.SgiStr (x, n, sgn) => SOME (L'.SgiStr (x, n, explifySgn sgn), loc)
       | L.SgiSgn (x, n, sgn) => SOME (L'.SgiSgn (x, n, explifySgn sgn), loc)
       | L.SgiConstraint _ => NONE
+      | L.SgiTable _ => raise Fail "Explify SgiTable"
 
 and explifySgn (sgn, loc) =
     case sgn of
@@ -151,6 +152,7 @@
       | L.DFfiStr (x, n, sgn) => SOME (L'.DFfiStr (x, n, explifySgn sgn), loc)
       | L.DConstraint (c1, c2) => NONE
       | L.DExport (en, sgn, str) => SOME (L'.DExport (en, explifySgn sgn, explifyStr str), loc)
+      | L.DTable _ => raise Fail "Explify DTable"
 
 and explifyStr (str, loc) =
     case str of