diff --git a/Socialmetrica.package/RSCanvas.extension/instance/exportAsFileNamed.into..st b/Socialmetrica.package/RSCanvas.extension/instance/exportAsFileNamed.into..st
index 337e1d7..ab6ac95 100644
--- a/Socialmetrica.package/RSCanvas.extension/instance/exportAsFileNamed.into..st
+++ b/Socialmetrica.package/RSCanvas.extension/instance/exportAsFileNamed.into..st
@@ -1,14 +1,13 @@
 *Socialmetrica
 exportAsFileNamed: aName into: aFolder
-	
-	self pngExporter 
-		zoomToShapes;
-		noFixedShapes;
-		fileName: (aFolder / (aName, 'png')) fullName;
-		export.
-	"self pdfExporter 
-		zoomToShapes;
-		noFixedShapes; 
-		fileName: (aFolder / (aName, 'pdf')) fullName;
-		export."
+	| exporters |
+	exporters := {'png' -> #pngExporter . 
+		'pdf' -> #pdfExporter } asDictionary.
+	exporters keysAndValuesDo: [:k :v | 
+		(self perform: v) 
+			zoomToShapes;
+			noFixedShapes;
+			fileName: (aFolder / (aName, '.', k)) fullName;
+			export.	
+	].
 	^ aFolder / aName, 'png'
\ No newline at end of file