diff --git a/src/nat/Archive.kiss b/src/nat/Archive.kiss
index 84facf9..4a1ab7c 100644
--- a/src/nat/Archive.kiss
+++ b/src/nat/Archive.kiss
@@ -36,12 +36,15 @@
         (Path.join [archiveDir "entries" (e.id.withExtension "json")])
         (Json.stringify e)))
 
+(defmethod componentData [:Entry e :String componentType]
+    (haxe.Json.parse (File.getContent (haxe.io.Path.join [archiveDir "components" "$(dictGet e.components componentType).json"]))))
+
 (defmethod fullData [:Entry e]
     (object
         id e.id
         components
             (for =>type id e.components
-                =>type (haxe.Json.parse (File.getContent (haxe.io.Path.join [archiveDir "components" "$(dictGet e.components type).json"]))))
+                =>type (componentData e type))
         files
             e.files))
 
diff --git a/src/nat/ArchiveController.kiss b/src/nat/ArchiveController.kiss
index fd660cb..f6ea41d 100644
--- a/src/nat/ArchiveController.kiss
+++ b/src/nat/ArchiveController.kiss
@@ -148,6 +148,10 @@
 
     (defcommand printSelectedEntries [entries (SelectedEntries null null)]
         (doFor e entries (ui.displayMessage (archive.fullString e))) [])
+    
+    (defcommand printComponent [entries (SelectedEntries null null)
+                                    componentType (Text null)]
+        (doFor e entries (ui.displayMessage (archive.componentData e componentType))) [])
         
     (defcommand createEntry [name (Text null)]
         [(archive.createEntry ->e