diff --git a/rdf4h.cabal b/rdf4h.cabal
--- a/rdf4h.cabal
+++ b/rdf4h.cabal
@@ -1,5 +1,5 @@
 name:            rdf4h
-version:         1.0.1
+version:         1.0.2
 synopsis:        A library for RDF processing in Haskell
 description:     
   'RDF for Haskell' is a library for working with RDF in Haskell.
diff --git a/src/Data/RDF/Namespace.hs b/src/Data/RDF/Namespace.hs
--- a/src/Data/RDF/Namespace.hs
+++ b/src/Data/RDF/Namespace.hs
@@ -10,7 +10,8 @@
   mkUri,
   prefixOf, uriOf,
   -- * Predefined namespace values
-  rdf, rdfs, dc, dct, owl, xsd, skos, foaf, ex, ex2, standard_ns_mappings
+  rdf, rdfs, dc, dct, owl, xsd, skos, foaf, ex, ex2,
+  standard_ns_mappings, ns_mappings
 )
 where
 
@@ -25,8 +26,12 @@
 
 -- |The set of common predefined namespaces as a 'PrefixMappings' value.
 standard_ns_mappings  :: PrefixMappings
-standard_ns_mappings  =  PrefixMappings $ Map.fromList $ 
-                         map (\(PrefixedNS pre uri) -> (pre, uri)) standard_namespaces
+standard_ns_mappings  =  ns_mappings standard_namespaces
+
+-- |Takes a list of 'Namespace's and returns 'PrefixMappings'.
+ns_mappings :: [Namespace] -> PrefixMappings
+ns_mappings ns =  PrefixMappings $ Map.fromList $ 
+                     map (\(PrefixedNS pre uri) -> (pre, uri)) ns
 
 -- |The RDF namespace.
 rdf  :: Namespace
diff --git a/src/Text/RDF/RDF4H/TurtleSerializer.hs b/src/Text/RDF/RDF4H/TurtleSerializer.hs
--- a/src/Text/RDF/RDF4H/TurtleSerializer.hs
+++ b/src/Text/RDF/RDF4H/TurtleSerializer.hs
@@ -114,7 +114,7 @@
 writeNode :: Handle -> Maybe T.Text -> Node -> Map T.Text T.Text -> IO ()
 writeNode h mdUrl node prefixes =
   case node of
-    (UNode bs)  -> let currUri = T.reverse bs
+    (UNode bs)  -> let currUri = bs
                    in case mdUrl of
                         Nothing  -> writeUNodeUri h currUri prefixes
                         Just url -> if url == currUri then hPutStr h "<>" else writeUNodeUri h currUri prefixes