diff --git a/src/GF/Shell.hs b/src/GF/Shell.hs
index 1c7f4527e..9eab757b7 100644
--- a/src/GF/Shell.hs
+++ b/src/GF/Shell.hs
@@ -342,7 +342,9 @@ execC co@(comm, opts0) sa@(sh@(st,(h,_,_,_)),a) = checkOptions st co >> case com
     warnDiscont opts
     let n = optIntOrN opts flagNumber 10 
     qs <- transTrainList opts (sgr il) (sgr ol) (toInteger n)
-    returnArg (AString $ foldr (+++++) [] [unlines (s:ss) | (s,ss) <- qs]) sa
+    let hdr = unlines ["# From: " ++ prIdent il,
+                       "# To: " ++ prIdent ol]
+    returnArg (AString $ hdr ++++ foldr (+++++) [] [unlines (s:ss) | (s,ss) <- qs]) sa
 
   CMorphoQuiz -> do
     warnDiscont opts