--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/MetacelloValueHolderSpec.st	Mon Sep 03 11:13:41 2012 +0000
@@ -0,0 +1,82 @@
+"{ Package: 'stx:goodies/metacello' }"
+
+MetacelloSpec subclass:#MetacelloValueHolderSpec
+	instanceVariableNames:'value'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'Metacello-Core-Specs'
+!
+
+
+!MetacelloValueHolderSpec methodsFor:'accessing'!
+
+value: anObject
+	value := anObject
+! !
+
+!MetacelloValueHolderSpec methodsFor:'construction'!
+
+value: anObject constructor: aVersionConstructor
+    aVersionConstructor valueForValueHolder: anObject
+! !
+
+!MetacelloValueHolderSpec methodsFor:'merging'!
+
+mergeMap
+
+	| map |
+	map := super mergeMap.
+	map at: #value put: value.
+	^map
+! !
+
+!MetacelloValueHolderSpec methodsFor:'printing'!
+
+configMethodOn: aStream indent: indent
+
+	aStream tab: indent; nextPutAll: 'spec value: ', self value printString
+! !
+
+!MetacelloValueHolderSpec methodsFor:'private'!
+
+setAuthorInMetacelloVersion: aMetacelloVersionSpec
+
+	aMetacelloVersionSpec setAuthor: self
+!
+
+setBlessingInMetacelloVersion: aMetacelloVersionSpec
+
+	aMetacelloVersionSpec setBlessing: self
+!
+
+setDescriptionInMetacelloVersion: aMetacelloVersionSpec
+
+	aMetacelloVersionSpec setDescription: self
+!
+
+setPostLoadDoItInMetacelloSpec: aMetacelloSpec
+
+	aMetacelloSpec setPostLoadDoIt: self
+!
+
+setPreLoadDoItInMetacelloSpec: aMetacelloSpec
+
+	aMetacelloSpec setPreLoadDoIt: self
+!
+
+setTimestampInMetacelloVersion: aMetacelloVersionSpec
+
+	aMetacelloVersionSpec setTimestamp: self
+! !
+
+!MetacelloValueHolderSpec methodsFor:'querying'!
+
+value
+	^ value
+! !
+
+!MetacelloValueHolderSpec class methodsFor:'documentation'!
+
+version_SVN
+    ^ '$Id::                                                                                                                        $'
+! !