diff --git a/repository/Grafoscopio/GrafoscopioBrowser.class.st b/repository/Grafoscopio/GrafoscopioBrowser.class.st
index 6d067ce..bd4d299 100644
--- a/repository/Grafoscopio/GrafoscopioBrowser.class.st
+++ b/repository/Grafoscopio/GrafoscopioBrowser.class.st
@@ -94,14 +94,10 @@ GrafoscopioBrowser >> bodyForCodeIn: constructor for: aNode [
 		
 	(constructor smalltalkCode)
 			title: 'Código en Smalltalk';
-			format: [aNode body]
-		
+			format: [aNode body];
+			populate: #acceptedCode icon: GLMUIThemeExtraIcons glamorousAccept on: $s entitled: 'Accept' with: [aNode body]
 	
 "
-	^(constructor smalltalkCode)
-       title: 'Código en Smalltalk';
-		 format:[aNode body].
-
 	
 	constructor tags = 'código'
 		ifFalse: [^self  ]