Expected stdout of createDirectoryIfMissing001 does not match actual output

[argiopetech]

Expected output

$ cat createDirectoryIfMissing001.stdout
()
createDirectoryIfMissing001.d/a: createDirectory: does not exist (No such file or directory)
()
()
()
()
createDirectoryIfMissing001.d: createDirectory: already exists (File exists)
createDirectoryIfMissing001.d/a: createDirectory: inappropriate type (Not a directory)

Actual output

$ runhaskell createDirectoryIfMissing001.hs 
()
createDirectoryIfMissing001.d/a: createDirectory: does not exist (No such file or directory)
()
()
()
()
()
createDirectoryIfMissing001.d/a: createDirectory: inappropriate type (Not a directory)

Diff

--- ./createDirectoryIfMissing001.stdout    2015-02-21 19:29:03.462825322 -0500
+++ ./createDirectoryIfMissing001.run.stdout    2015-02-21 19:31:28.162325186 -0500
@@ -4,5 +4,5 @@
 ()
 ()
 ()
-createDirectoryIfMissing001.d: createDirectory: already exists (File exists)
+()
 createDirectoryIfMissing001.d/a: createDirectory: inappropriate type (Not a directory)

This appears to have been introduced in 1f11393 while fixing #4. See also #19.

[hvr]

So did something undo the effect of 1f11393 (thereby unfixing #4)?

[argiopetech]

PEBCAK. While trying to test with testsuite from a sandbox, I inadvertently ended up linking the tests against directory-1.2.1.0.