diff --git a/hpage.cabal b/hpage.cabal
--- a/hpage.cabal
+++ b/hpage.cabal
@@ -1,5 +1,5 @@
 name: hpage
-version: 0.4.1
+version: 0.4.2
 cabal-version: >=1.6
 build-type: Custom
 license: BSD3
diff --git a/src/HPage/Control.hs b/src/HPage/Control.hs
--- a/src/HPage/Control.hs
+++ b/src/HPage/Control.hs
@@ -466,7 +466,7 @@
                         confirmRunning
                         syncRun $ do
                                     mns <- Hint.getLoadedModules
-                                    mis <- mapM Hint.isModuleInterpreted mns
+                                    let mis = map (>0) [1..]
                                     return $ zipWith ModDesc mns mis 
 
 getImportedModules :: HPage [Hint.ModuleName]
@@ -622,7 +622,7 @@
                         confirmRunning
                         asyncRun $ do
                                         mns <- Hint.getLoadedModules
-                                        mis <- mapM Hint.isModuleInterpreted mns
+                                        let mis = map (>0) [1..]
                                         return $ zipWith ModDesc mns mis
                                     
 getImportedModules' :: HPage (MVar [Hint.ModuleName])