diff --git a/src/GToolkit-Inspector/GtInspectorContextIndexedTempNode.class.st b/src/GToolkit-Inspector/GtInspectorContextIndexedTempNode.class.st
index 657aec75..b6872ac8 100644
--- a/src/GToolkit-Inspector/GtInspectorContextIndexedTempNode.class.st
+++ b/src/GToolkit-Inspector/GtInspectorContextIndexedTempNode.class.st
@@ -36,5 +36,5 @@ GtInspectorContextIndexedTempNode >> tempIndex: anObject [
 
 { #category : #accessing }
 GtInspectorContextIndexedTempNode >> variableTag [
-	^  'temp' 
+	^  'temporary' 
 ]
diff --git a/src/GToolkit-Inspector/GtInspectorContextNamedTempNode.class.st b/src/GToolkit-Inspector/GtInspectorContextNamedTempNode.class.st
index a87010f4..fd3bbcbf 100644
--- a/src/GToolkit-Inspector/GtInspectorContextNamedTempNode.class.st
+++ b/src/GToolkit-Inspector/GtInspectorContextNamedTempNode.class.st
@@ -10,13 +10,13 @@ Class {
 }
 
 { #category : #'instance creation' }
-GtInspectorContextNamedTempNode class >> hostObject: aContext tempName: aString tempIndex: anInteger [
+GtInspectorContextNamedTempNode class >> hostObject: aContext tempName: aTempName tempIndex: anInteger [
 	^ (self hostObject: aContext) 
-		tempName: aString;
+		tempName: aTempName;
 		tempIndex: anInteger;
-		variableTag: ((aContext method argumentNames includes: aString)
+		variableTag: ((aContext hasMethodOrBlockParameterNamed:  aTempName)
 			ifTrue: [ 'parameter' ]
-			ifFalse: [ 'temp' ])
+			ifFalse: [ 'temporary' ])
 		yourself
 ]
 
@@ -62,7 +62,7 @@ GtInspectorContextNamedTempNode >> tempName: aString [
 
 { #category : #accessing }
 GtInspectorContextNamedTempNode >> variableTag [
-	^ tag ifNil: [ 'temp' ]
+	^ tag ifNil: [ 'temporary' ]
 ]
 
 { #category : #accessing }
diff --git a/src/GToolkit-Inspector/GtInspectorDynamicNode.class.st b/src/GToolkit-Inspector/GtInspectorDynamicNode.class.st
index e0424b4d..0dd95735 100644
--- a/src/GToolkit-Inspector/GtInspectorDynamicNode.class.st
+++ b/src/GToolkit-Inspector/GtInspectorDynamicNode.class.st
@@ -17,6 +17,15 @@ GtInspectorDynamicNode class >> hostObject: anObject label: aString value: anoth
 		yourself
 ]
 
+{ #category : #'instance creation' }
+GtInspectorDynamicNode class >> hostObject: anObject label: aString value: anotherObject tag: aTag [
+	^ (self hostObject: anObject) 
+		label: aString;
+		rawValue: anotherObject;
+		variableTag: aTag;
+		yourself
+]
+
 { #category : #accessing }
 GtInspectorDynamicNode >> key [
 	^ label
diff --git a/src/GToolkit-Inspector/GtInspectorIndexedNode.class.st b/src/GToolkit-Inspector/GtInspectorIndexedNode.class.st
index efd67364..f641fd18 100644
--- a/src/GToolkit-Inspector/GtInspectorIndexedNode.class.st
+++ b/src/GToolkit-Inspector/GtInspectorIndexedNode.class.st
@@ -46,5 +46,5 @@ GtInspectorIndexedNode >> save: aValue [
 
 { #category : #accessing }
 GtInspectorIndexedNode >> variableTag [
-	^ 'attribute'
+	^ 'slot'
 ]
diff --git a/src/GToolkit-Inspector/GtInspectorProtoObjectNode.class.st b/src/GToolkit-Inspector/GtInspectorProtoObjectNode.class.st
index 48832011..82ab5f02 100644
--- a/src/GToolkit-Inspector/GtInspectorProtoObjectNode.class.st
+++ b/src/GToolkit-Inspector/GtInspectorProtoObjectNode.class.st
@@ -33,5 +33,5 @@ GtInspectorProtoObjectNode >> rawValue [
 
 { #category : #accessing }
 GtInspectorProtoObjectNode >> variableTag [
-	^ 'attribute'
+	^ 'slot'
 ]
diff --git a/src/GToolkit-Inspector/GtInspectorSlotNode.class.st b/src/GToolkit-Inspector/GtInspectorSlotNode.class.st
index 4dc5312b..6a5716c7 100644
--- a/src/GToolkit-Inspector/GtInspectorSlotNode.class.st
+++ b/src/GToolkit-Inspector/GtInspectorSlotNode.class.st
@@ -51,5 +51,5 @@ GtInspectorSlotNode >> slot: aSlot [
 
 { #category : #accessing }
 GtInspectorSlotNode >> variableTag [
-	^ 'attribute'
+	^ 'slot'
 ]