Version handling wibbles.

2007-01-29 03:16:34 +00:00
parent 5d497a1c60
commit bc5726ccd2
2 changed files with 5 additions and 3 deletions
--- a/src/System/Plugins/Load.hs
+++ b/src/System/Plugins/Load.hs
@ -413,7 +413,7 @@ loadFunction_ :: String
              -> String
              -> IO (Maybe a)
 loadFunction_ m valsym
-   = do let symbol = prefixUnderscore++m++"_"++(encode valsym)++"_closure"
+   = do let symbol = prefixUnderscore++encode m++"_"++(encode valsym)++"_closure"
 #if DEBUG
        putStrLn $ "Looking for <<"++symbol++">>"
 #endif