diff --git a/global-functions.rsc b/global-functions.rsc
index 312936b..950ccd6 100644
--- a/global-functions.rsc
+++ b/global-functions.rsc
@@ -909,11 +909,7 @@
 
 # print lines with trailing carriage return
 :set PrettyPrint do={
-  :local Input [ :tostr $1 ];
-
-  :global Unix2Dos;
-
-  :put [ $Unix2Dos $Input ];
+  :put [ :tocrlf [ :tostr $1 ] ];
 }
 
 # strip protocol from from url string