diff --git a/ftphs.cabal b/ftphs.cabal
--- a/ftphs.cabal
+++ b/ftphs.cabal
@@ -1,10 +1,10 @@
 Name: ftphs
-Version: 1.0.9
+Version: 1.0.9.1
 License: LGPL
 Maintainer: John Goerzen <jgoerzen@complete.org>
 Author: John Goerzen
 Stability: Stable
-Copyright: Copyright (c) 2004-2010 John Goerzen
+Copyright: Copyright (c) 2004-2013 John Goerzen
 license-file: COPYRIGHT
 extra-source-files: COPYING,
                     Makefile,
@@ -37,7 +37,7 @@
     Network.FTP.Server,
     Network.FTP.Server.Parser
   Extensions: ExistentialQuantification, OverlappingInstances, 
-   UndecidableInstances, CPP
+   UndecidableInstances, CPP, ScopedTypeVariables
   Build-Depends: network, parsec, base >= 3 && < 5,
                  mtl, regex-compat, 
                hslogger, MissingH>=1.0.0
diff --git a/src/Network/FTP/Client.hs b/src/Network/FTP/Client.hs
--- a/src/Network/FTP/Client.hs
+++ b/src/Network/FTP/Client.hs
@@ -35,7 +35,7 @@
 Here is a quick usage example to get you started.  This is a log of a real
 session with ghci: 
 
-(This would be similar in a "do" block.  You could also save it to a file and
+(This would be similar in a @do@ block.  You could also save it to a file and
 run that with Hugs.)
 
 > Prelude> :l Network.FTP.Client
diff --git a/src/Network/FTP/Server.hs b/src/Network/FTP/Server.hs
--- a/src/Network/FTP/Server.hs
+++ b/src/Network/FTP/Server.hs
@@ -169,7 +169,7 @@
     do result <- try testAction
        case result of
          Left (err::SomeException) -> do sendReply h 550 (show err)
-                                    return True
+                                         return True
          Right result -> remainingAction result
 
 forceLogin :: CommandHandler -> CommandHandler