diff --git a/R/ISOServiceIdentification.R b/R/ISOServiceIdentification.R
index 0e4e6c9c..2da3e9e0 100644
--- a/R/ISOServiceIdentification.R
+++ b/R/ISOServiceIdentification.R
@@ -282,7 +282,7 @@ ISOServiceIdentification$new = function(xml = NULL){
 #'   scriptOp$setOperationDescription("WPS Execute")
 #'   scriptOp$setInvocationName("identifier")
 #'   for(i in 1:3){
-#'     param <- ISOParameter$new()
+#'     param <- ISOSRVParameter$new()
 #'     param$setName(sprintf("name%s",i), "xs:string")
 #'     param$setDirection("in")
 #'     param$setDescription(sprintf("description%s",i))
@@ -291,7 +291,7 @@ ISOServiceIdentification$new = function(xml = NULL){
 #'     param$setValueType("xs:string")
 #'     scriptOp$addParameter(param)
 #'   }
-#'   outParam <-ISOParameter$new()
+#'   outParam <-ISOSRVParameter$new()
 #'   outParam$setName("outputname", "xs:string")
 #'   outParam$setDirection("out")
 #'   outParam$setDescription("outputdescription")
@@ -315,7 +315,7 @@ ISOServiceIdentification$new = function(xml = NULL){
 #'   invocationName <- "mywpsidentifier"
 #'   wpsOp$setInvocationName(invocationName)
 #'   for(i in 1:3){
-#'     param <- ISOParameter$new()
+#'     param <- ISOSRVParameter$new()
 #'     param$setName(sprintf("name%s",i), "xs:string")
 #'     param$setDirection("in")
 #'     param$setDescription(sprintf("description%s",i))
@@ -324,7 +324,7 @@ ISOServiceIdentification$new = function(xml = NULL){
 #'     param$setValueType("xs:string")
 #'     wpsOp$addParameter(param)
 #'   }
-#'   outParam <-ISOParameter$new()
+#'   outParam <-ISOSRVParameter$new()
 #'   outParam$setName("outputname", "xs:string")
 #'   outParam$setDirection("out")
 #'   outParam$setDescription("outputdescription")
diff --git a/man/ISOSRVServiceIdentification.Rd b/man/ISOSRVServiceIdentification.Rd
index 17707d11..de7fd3c7 100644
--- a/man/ISOSRVServiceIdentification.Rd
+++ b/man/ISOSRVServiceIdentification.Rd
@@ -131,7 +131,7 @@ ISOSRVServiceIdentification
   scriptOp$setOperationDescription("WPS Execute")
   scriptOp$setInvocationName("identifier")
   for(i in 1:3){
-    param <- ISOParameter$new()
+    param <- ISOSRVParameter$new()
     param$setName(sprintf("name\%s",i), "xs:string")
     param$setDirection("in")
     param$setDescription(sprintf("description\%s",i))
@@ -140,7 +140,7 @@ ISOSRVServiceIdentification
     param$setValueType("xs:string")
     scriptOp$addParameter(param)
   }
-  outParam <-ISOParameter$new()
+  outParam <-ISOSRVParameter$new()
   outParam$setName("outputname", "xs:string")
   outParam$setDirection("out")
   outParam$setDescription("outputdescription")
@@ -163,7 +163,7 @@ ISOSRVServiceIdentification
   invocationName <- "mywpsidentifier"
   wpsOp$setInvocationName(invocationName)
   for(i in 1:3){
-    param <- ISOParameter$new()
+    param <- ISOSRVParameter$new()
     param$setName(sprintf("name\%s",i), "xs:string")
     param$setDirection("in")
     param$setDescription(sprintf("description\%s",i))
@@ -172,7 +172,7 @@ ISOSRVServiceIdentification
     param$setValueType("xs:string")
     wpsOp$addParameter(param)
   }
-  outParam <-ISOParameter$new()
+  outParam <-ISOSRVParameter$new()
   outParam$setName("outputname", "xs:string")
   outParam$setDirection("out")
   outParam$setDescription("outputdescription")