diff --git a/Ganeti/HTools/Node.hs b/Ganeti/HTools/Node.hs
index 8f19a55e0abc098cb91cc59bbc259e1dd1e0a95a..bc99df58a98c6e4b126e85d3a48954331157edd1 100644
--- a/Ganeti/HTools/Node.hs
+++ b/Ganeti/HTools/Node.hs
@@ -210,11 +210,11 @@ create name_init mem_t_init mem_n_init mem_f_init
          , pTags = Map.empty
          }
 
--- | Conversion formula from mDsk/tDsk to loDsk
+-- | Conversion formula from mDsk\/tDsk to loDsk
 mDskToloDsk :: Double -> Double -> Int
 mDskToloDsk mval tdsk = floor (mval * tdsk)
 
--- | Conversion formula from mCpu/tCpu to hiCpu
+-- | Conversion formula from mCpu\/tCpu to hiCpu
 mCpuTohiCpu :: Double -> Double -> Int
 mCpuTohiCpu mval tcpu = floor (mval * tcpu)
 
diff --git a/hspace.hs b/hspace.hs
index 2b106ef800989a488a12f1a1d772707c8147efcd..b6f5f4f58bdce97abca8514347cc8ca2587334c2 100644
--- a/hspace.hs
+++ b/hspace.hs
@@ -212,7 +212,7 @@ ensureQuoted v = if not (all (\c -> (isAlphaNum c || c == '.')) v)
                  then '\'':v ++ "'"
                  else v
 
--- | Format a list of key/values as a shell fragment
+-- | Format a list of key\/values as a shell fragment
 printKeys :: [(String, String)] -> IO ()
 printKeys = mapM_ (\(k, v) ->
                    printf "HTS_%s=%s\n" (map toUpper k) (ensureQuoted v))