diff --git a/data/CompState.hs b/data/CompState.hs
index 969decb..6099741 100644
--- a/data/CompState.hs
+++ b/data/CompState.hs
@@ -125,7 +125,7 @@ data CompState = CompState {
     csUnifyId :: Int,
     csWarnings :: [WarningReport]
   }
-  deriving (Data, Typeable)
+  deriving (Data, Typeable, Show)
 
 emptyState :: CompState
 emptyState = CompState {
diff --git a/pass/Pass.hs b/pass/Pass.hs
index 4a5f3bf..e28bc93 100644
--- a/pass/Pass.hs
+++ b/pass/Pass.hs
@@ -173,8 +173,8 @@ debugAST p
           veryDebug $ pshow p
           veryDebug $ "}}}"
           veryDebug $ "{{{ State"
-          ps <- get
-          veryDebug $ pshow ps
+          ps <- getCompState
+          veryDebug $ show ps
           veryDebug $ "}}}"
 
 -- | Transform the 'A.Only' items in a 'A.Structured'.