diff --git a/teckids2style.sty b/teckids2style.sty
index c87fe844503fc4be4651e883c2b4d203ae68535c..509d5dedb544287c176a3623ec6ce4a7e36bcd91 100644
--- a/teckids2style.sty
+++ b/teckids2style.sty
@@ -194,6 +194,29 @@
 	 \csname\@lst @SaveFirstNumber\endcsname%
 	 \xdef\lstdumpsection{\@currentlabel}%
 	}%
+\lstnewenvironment{lstdump*}[3][]%
+	{\lst@TestEOLChar{#3}%
+	 \lstset{#1}%
+	 \csname\@lst @SetFirstNumber\endcsname%
+	 \renewcommand{\lstdumpname}{"#2"}%
+	 \lst@BeginAlsoWriteFile{\jobname.lst}%
+	 \ifx\lstdumpsection\@currentlabel\else%
+	  \ifx\lstdumpsection\@empty%
+	   \immediate\write\lst@WF{Listing dump for \jobname.tex}%
+	   \immediate\write\lst@WF{}%
+	  \fi%
+	  \immediate\write\lst@WF{>>> (\@currentlabel) \@currentlabelname}%
+	  \immediate\write\lst@WF{}%
+	 \fi%
+	 \immediate\write\lst@WF{-----BEGIN LISTING \lstdumpname-----}%
+	}%
+	{%
+	 \immediate\write\lst@WF{-----END LISTING \lstdumpname-----}%
+	 \immediate\write\lst@WF{}%
+	 \endgroup%
+	 \csname\@lst @SaveFirstNumber\endcsname%
+	 \xdef\lstdumpsection{\@currentlabel}%
+	}%
 \lstnewenvironment{lstdumpx}[2][]%
 	{\lst@TestEOLChar{#2}%
 	 \lstset{#1}%